home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / club1.d64 / roxane's volcano (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  2KB  |  51 lines
  1. 5 REM FOR ROXANE'S SCIENCE FAIR MARCH 1984 - WRITTEN BY FRED LAYBERGER
  2. 10 GOTO30
  3. 15 FORII=1TO10:FORI=1TO15::POKE646,I
  4. 20 PRINTMID$(A$,1,24)"ROXANE'S VOLCANO":NEXTI:NEXTII:RETURN
  5. 25 FORI=1TO200:NEXTI:RETURN
  6. 30 POKE53280,6:POKE53281,15
  7. 35 A$=""
  8. 40 PRINT"[147]"A$;
  9. 41 PRINT"[151]                                       ";:POKE2023,160:POKE56295,11
  10. 42 FORI=24TO23STEP-1:PRINTMID$(A$,1,I);:FORII=0TO39:PRINT" [146]";:NEXTII:NEXTI
  11. 45 FORI=22TO16STEP-1:PRINTMID$(A$,1,I);:FORII=0TO39:PRINT" [146]";:NEXTII:NEXTI
  12. 50 FORI=15TO0STEP-1:PRINTMID$(A$,1,I);:FORII=0TO39:PRINT"[154] [146]";:NEXTII:NEXTI
  13. 51 POKE53281,11
  14. 55 PRINTMID$(A$,1,22)"[169]                                [223]"
  15. 60 PRINTMID$(A$,1,21)"[169]                              [223]"
  16. 65 PRINTMID$(A$,1,20)"[169]                            [223]"
  17. 70 PRINTMID$(A$,1,19)"[169]                          [223]"
  18. 75 PRINTMID$(A$,1,18)"[169]                        [223]"
  19. 80 PRINTMID$(A$,1,17)"[169]                      [223]"
  20. 85 PRINTMID$(A$,1,16)"[169]                    [223]"
  21. 90 PRINTMID$(A$,1,15)"[169]                  [223]"
  22. 95 PRINTMID$(A$,1,15)"[154][169]                  [223]"
  23. 100 PRINTMID$(A$,1,14)"[169]                [223]"
  24. 105 PRINTMID$(A$,1,13)"[169]              [223]"
  25. 110 PRINTMID$(A$,1,12)"[169]            [223]"
  26. 115 PRINTMID$(A$,1,11)"[169]          [223]"
  27. 120 PRINTMID$(A$,1,10)"[169]        [223]"
  28. 125 PRINTMID$(A$,1,9)"[169]      [223]"
  29. 130 PRINTMID$(A$,1,8)"[169]    [223]"
  30. 135 GOSUB15
  31. 140 FORI=1TO500:NEXTI
  32. 145 FORII=1TO5:FORI=1TO15:POKE53281,I:NEXTI:NEXTII:POKE53281,11
  33. 150 PRINTMID$(A$,1,25)"[169]                       [223][146]";
  34. 155 PRINTMID$(A$,1,24)"[169]                  [223][146]";
  35. 160 PRINTMID$(A$,1,23)"[169]            [223][146]";
  36. 165 FORI=22TO8STEP-1:PRINTMID$(A$,1,I);
  37. 170 FORX=1TO100:NEXTX
  38. 175 PRINT"    [146]":NEXTI
  39. 180 FORX=0TO15:POKE53281,X:NEXTX:POKE53281,11
  40. 185 PRINT"[145]*    *"
  41. 190 PRINT"*      *"
  42. 195 GOSUB25:PRINTMID$(A$,1,8)"**"
  43. 200 GOSUB25:PRINTMID$(A$,1,7)"***"
  44. 205 GOSUB25:PRINTMID$(A$,1,6)"****"
  45. 210 GOSUB25:PRINTMID$(A$,1,5)"**[157]**"
  46. 215 GOSUB25:PRINTMID$(A$,1,4)"*****"
  47. 220 GOSUB25:PRINTMID$(A$,1,3)"******"
  48. 225 GOSUB25:PRINTMID$(A$,1,2)"*****"
  49. 230 GOSUB15
  50. 235 FORI=1TO500:NEXTI:GOTO30
  51.